Option Explicit
Sub P_Sample021()
    Dim myFso As Scripting.FileSystemObject
    Dim myOldName As String
    Dim myNewPath As String
    Set myFso = New Scripting.FileSystemObject
    myOldName = ThisWorkbook.Path & "\Tmp1"		'nʪƧ
    myNewPath = ThisWorkbook.Path & "\Tmp\"    		'ʥؼиƧ_
    myFso.MoveFolder myOldName, myNewPath
    'ϥMaskr
    'myFso.GetFolder(myOldName).Move myNewPath
    Set myFso = Nothing					'
End Sub
